0 GOSUB60100:CLR
100 REM KEYBEEPER - PABLO TRINCAVELLI
110 POKE54275,8:POKE54277,36:POKE54278,9:POKE254,65
120 FORJ=0TO54:READK:POKE50000+J,K:CS=CS+K:NEXT
150 DATA120,169,098,141,020,003,169,195
160 DATA141,021,003,088,169,015,141,024
170 DATA212,096,165,197,164,254,136,201
180 DATA064,240,022,162,128,201,001,240
190 DATA012,162,064,201,008,144,006,201
200 DATA051,240,002,162,016,142,001,212
210 DATA200,140,004,212,076,049,234
300 SYS50000:PRINT"[147]               KEYBEEPER"
310 PRINT"   KEYBEEPER IS NOW ACTIVE. PRESSING"
320 PRINT"CERTAIN KEYS PRODUCES A BEEP."
330 PRINT"PRESS [SPACE] TO EXIT TO BASIC; [RETURN]";
340 PRINT"TO RETURN TO LOADSTAR...":POKE198,.
350 GETA$:IFA$<>" "ANDA$<>CHR$(13)THEN350
360 POKE198,.:IFA$=" "THENEND
370 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
380 IFER<>63THENEND
390 SYS65418:LOAD"HELLO CONNECT",8
60100 POKE53280,7:POKE53281,1
60110 PRINTCHR$(142)"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]";
60140 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60150 PRINT"[149]          LOADSTAR PRESENTS:"
60160 PRINT"                               "
60170 PRINT"              KEYBEEPER        [155] "
60180 PRINT"                               [155] "
60190 PRINT"         BY PABLO TRINCAVELLI  [155] "
60200 PRINT"                               [155] "
60210 PRINT"           (C)OPYRIGHT 1987    [155] "
60220 PRINT"                               [155] "
60230 PRINT"                                "
60240 PRINT"        [149]PRESS SPACE TO CONTINUE.":POKE198,.
60250 GETA$:IFA$<>" "THEN60250
60260 RETURN